home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Daventry / KQ / FOUNTAIN.CS < prev    next >
Encoding:
Text File  |  1998-12-15  |  816 b   |  34 lines
  1. if test $2 == ConnorAction
  2.    echo $1 $2 $3 $4
  3.     if test "$Daventry::Well::canDrink" == true
  4.         # Prevent Connor from continously playing the drink sound
  5.         set Daventry::Well::canDrink false
  6.         sendEvent 1.0 $1 KQCueEvent 1 0
  7.         KQSound::play slurp.aud
  8.         sendEvent 0 Connor KQStatsChangeRequestEvent 2 0 0 0 0
  9.     else
  10.         sendEvent 0 Connor KQStatsChangeRequestEvent 2 0 0 0 0
  11.     endif
  12. else if test $2 == Cue
  13.     if test $3 == 1
  14.         # He, he, he, a little humor
  15.         random 0 39
  16.         if test 39 == $Console::Return
  17.             # burp and delay drinking time
  18.             sendEvent 2.0 $1 KQCueEvent 1 0
  19.             KQSound::play burp.aud
  20.         else
  21.             set Daventry::Well::canDrink true
  22.         endif
  23.     else if test $3 == 20
  24.         movement.cs
  25.         sendEvent 10 $1 KQCueEvent 30 0
  26.     else if test $3 == 30
  27.         camera1.cs 
  28.     endif
  29.     endif
  30.     endif
  31. endif
  32. endif
  33.  
  34.